inherited frmCashDailyEdit: TfrmCashDailyEdit
  Left = 464
  Top = 229
  Caption = #20986#32435#26085#35760#36134#30331#35760
  PixelsPerInch = 96
  TextHeight = 12
  object dynlblbookdate: TLabel [0]
    Left = 25
    Top = 27
    Width = 60
    Height = 12
    Caption = #35760#24080#26085#26399#65306
    Transparent = True
  end
  object dynlblExplan: TLabel [1]
    Left = 25
    Top = 245
    Width = 60
    Height = 12
    Caption = #25688'    '#35201#65306
    Transparent = True
  end
  object dynLblTakeman: TLabel [2]
    Left = 25
    Top = 183
    Width = 60
    Height = 12
    Caption = #32463' '#25163' '#20154#65306
    Transparent = True
  end
  object dynLblBillNo: TLabel [3]
    Left = 25
    Top = 89
    Width = 60
    Height = 12
    Caption = #31080' '#25454' '#21495#65306
    Transparent = True
  end
  object dynlbldebitamt: TLabel [4]
    Left = 25
    Top = 152
    Width = 60
    Height = 12
    Caption = #26412#24065#20511#26041#65306
    Transparent = True
  end
  object dynlblvoucherno: TLabel [5]
    Left = 25
    Top = 58
    Width = 60
    Height = 12
    Caption = #20973' '#35777' '#21495#65306
    Transparent = True
  end
  object dynlblSubjectCode: TLabel [6]
    Left = 25
    Top = 214
    Width = 60
    Height = 12
    Caption = #23545#26041#31185#30446#65306
    Transparent = True
  end
  object dynlblRawDebitamt: TLabel [7]
    Left = 25
    Top = 120
    Width = 60
    Height = 12
    Caption = #21407#24065#20511#26041#65306
    Transparent = True
  end
  object dynlblbalanceid: TLabel [8]
    Left = 274
    Top = 58
    Width = 60
    Height = 12
    Caption = #32467#31639#26041#24335#65306
    Transparent = True
  end
  object dynlblBalancedate: TLabel [9]
    Left = 274
    Top = 89
    Width = 60
    Height = 12
    Caption = #32467#31639#26085#26399#65306
    Transparent = True
  end
  object dynlblCreditamt: TLabel [10]
    Left = 274
    Top = 152
    Width = 60
    Height = 12
    Caption = #26412#24065#36151#26041#65306
    Transparent = True
  end
  object dynlblvouwordid: TLabel [11]
    Left = 274
    Top = 27
    Width = 60
    Height = 12
    Caption = #20973' '#35777' '#23383#65306
    Transparent = True
  end
  object dynlbltax: TLabel [12]
    Left = 274
    Top = 183
    Width = 60
    Height = 12
    Caption = #27719'    '#29575#65306
    Transparent = True
  end
  object dynlblRawCreditamt: TLabel [13]
    Left = 274
    Top = 120
    Width = 60
    Height = 12
    Caption = #21407#24065#36151#26041#65306
    Transparent = True
  end
  inherited pnlBottom: TPanel
    inherited Bevel1: TBevel
      ExplicitWidth = 508
    end
    inherited btnOK: TBitBtn
      Top = 20
      Width = 75
      ExplicitTop = 20
      ExplicitWidth = 75
    end
    inherited btnCancel: TBitBtn
      Left = 679
      Top = 20
      Width = 75
      ExplicitLeft = 679
      ExplicitTop = 20
      ExplicitWidth = 75
    end
    inherited btnContinue: TBitBtn
      Left = 15
      Top = 20
      Width = 75
      ExplicitLeft = 15
      ExplicitTop = 20
      ExplicitWidth = 75
    end
    inherited btnPri: TBitBtn
      Left = 99
      Top = 20
      Width = 65
      ExplicitLeft = 99
      ExplicitTop = 20
      ExplicitWidth = 65
    end
    inherited btnNext: TBitBtn
      Left = 170
      Top = 20
      Width = 65
      ExplicitLeft = 170
      ExplicitTop = 20
      ExplicitWidth = 65
    end
    inherited btnBaseEditSave: TBitBtn
      Top = 20
      ExplicitTop = 20
    end
  end
  object dynedtBookdate: TcxDBDateEdit [15]
    Left = 90
    Top = 23
    DataBinding.DataField = 'bookdate'
    DataBinding.DataSource = MainDataSource
    Properties.ImmediateDropDownWhenKeyPressed = True
    Properties.ImmediatePost = True
    Properties.SaveTime = False
    Properties.ShowTime = False
    TabOrder = 1
    Width = 145
  end
  object dynedtdcDebitamt: TcxDBCurrencyEdit [16]
    Left = 90
    Top = 116
    DataBinding.DataField = 'dcdebitamt'
    DataBinding.DataSource = MainDataSource
    TabOrder = 7
    Width = 145
  end
  object dynedtDebitamt: TcxDBCurrencyEdit [17]
    Left = 90
    Top = 148
    DataBinding.DataField = 'debitamt'
    DataBinding.DataSource = MainDataSource
    TabOrder = 9
    Width = 145
  end
  object dynedtdcCreditamt: TcxDBCurrencyEdit [18]
    Left = 334
    Top = 116
    DataBinding.DataField = 'dccreditamt'
    DataBinding.DataSource = MainDataSource
    TabOrder = 8
    Width = 145
  end
  object dynedtCreditamt: TcxDBCurrencyEdit [19]
    Left = 334
    Top = 148
    DataBinding.DataField = 'creditamt'
    DataBinding.DataSource = MainDataSource
    TabOrder = 10
    Width = 145
  end
  object dynedttax: TcxDBCalcEdit [20]
    Left = 334
    Top = 179
    DataBinding.DataField = 'tax'
    DataBinding.DataSource = MainDataSource
    Properties.ImmediateDropDownWhenKeyPressed = True
    Properties.ImmediatePost = True
    TabOrder = 12
    Width = 145
  end
  object dynedtExplan: TcxDBTextEdit [21]
    Left = 90
    Top = 241
    DataBinding.DataField = 'explan'
    DataBinding.DataSource = MainDataSource
    TabOrder = 14
    Width = 390
  end
  object dynedtvouwordid: TcxDBLookupComboBox [22]
    Tag = 64
    Left = 334
    Top = 23
    DataBinding.DataField = 'vouwordid'
    DataBinding.DataSource = MainDataSource
    Properties.ImmediatePost = True
    Properties.ListColumns = <>
    TabOrder = 2
    Width = 145
  end
  object dynedtBalanceid: TcxDBLookupComboBox [23]
    Tag = 15
    Left = 334
    Top = 54
    DataBinding.DataField = 'balanceid'
    DataBinding.DataSource = MainDataSource
    Properties.ImmediatePost = True
    Properties.ListColumns = <>
    TabOrder = 4
    Width = 145
  end
  object dynedtBalancedate: TcxDBDateEdit [24]
    Left = 334
    Top = 85
    DataBinding.DataField = 'balancedate'
    DataBinding.DataSource = MainDataSource
    Properties.ImmediateDropDownWhenKeyPressed = True
    Properties.ImmediatePost = True
    TabOrder = 6
    Width = 145
  end
  object dynedtBillNo: TcxDBTextEdit [25]
    Left = 90
    Top = 85
    DataBinding.DataField = 'billno'
    DataBinding.DataSource = MainDataSource
    TabOrder = 5
    Width = 145
  end
  object dynedtTakeman: TcxDBTextEdit [26]
    Left = 90
    Top = 179
    DataBinding.DataField = 'takeman'
    DataBinding.DataSource = MainDataSource
    TabOrder = 11
    Width = 145
  end
  object dynedtVoucherNo: TcxDBSpinEdit [27]
    Left = 91
    Top = 54
    DataBinding.DataField = 'voucherno'
    DataBinding.DataSource = MainDataSource
    Properties.ImmediatePost = True
    TabOrder = 3
    Width = 145
  end
  inherited btnPrint: TcxButton
    TabOrder = 15
  end
  inherited edtPrint: TcxLookupComboBox
    TabOrder = 16
    ExplicitHeight = 20
  end
  object dynedtSubjectCode: TcxDBTextEdit [30]
    Left = 90
    Top = 211
    DataBinding.DataField = 'subjectcode'
    DataBinding.DataSource = MainDataSource
    TabOrder = 13
    Width = 389
  end
  inherited MainDataSource: TDataSource
    DataSet = MainDataSet
    Left = 219
    Top = 230
  end
  inherited qryDynDtl: TUniQuery
    Left = 149
    Top = 3
  end
  object MainDataSet: TUniQuery
    SQLInsert.Strings = (
      'INSERT INTO tft_cashDayBook'
      
        '  (daybookid, accountid, filid, create_by, balanceid, bookdate, ' +
        'vouwordid, voucherno, tax, debitamt'
      
        ', creditamt, dcdebitamt, dccreditamt, billno, explan, subjectcod' +
        'e, takeman, accflag, bankflag, balancedate'
      
        ', initflag, sourceflag, bankcheckday, acccheckday, dodebit, mone' +
        'yid)'
      'VALUES'
      
        '  (:daybookid, :accountid, :filid, :create_by, :balanceid, :book' +
        'date, :vouwordid, :voucherno, :tax, :debitamt'
      
        ', :creditamt, :dcdebitamt, :dccreditamt, :billno, :explan, :subj' +
        'ectcode, :takeman, :accflag, :bankflag, :balancedate'
      
        ', :initflag, :sourceflag, :bankcheckday, :acccheckday, :dodebit,' +
        ' :moneyid)')
    SQLDelete.Strings = (
      'DELETE FROM tft_cashDayBook'
      'WHERE'
      '  daybookid = :Old_daybookid')
    SQLUpdate.Strings = (
      'UPDATE tft_cashDayBook'
      'SET'
      
        '  daybookid = :daybookid, accountid = :accountid, filid = :filid' +
        ', create_by = :create_by, balanceid = :balanceid, bookdate = :bo' +
        'okdate, vouwordid = :vouwordid, voucherno = :voucherno, tax = :t' +
        'ax, debitamt = :debitamt, creditamt = :creditamt, dcdebitamt = :' +
        'dcdebitamt, dccreditamt = :dccreditamt, billno = :billno, explan' +
        ' = :explan, subjectcode = :subjectcode, takeman = :takeman, accf' +
        'lag = :accflag, bankflag = :bankflag, balancedate = :balancedate' +
        ', initflag = :initflag, sourceflag = :sourceflag, bankcheckday =' +
        ' :bankcheckday, acccheckday = :acccheckday, dodebit = :dodebit, ' +
        'moneyid = :moneyid'
      'WHERE'
      '  daybookid = :Old_daybookid')
    SQLLock.Strings = (
      'SELECT * FROM tft_cashDayBook'
      'WITH (UPDLOCK, ROWLOCK, HOLDLOCK)'
      'WHERE'
      '  daybookid = :Old_daybookid')
    SQLRefresh.Strings = (
      
        'SELECT daybookid, accountid, filid, create_by, balanceid, bookda' +
        'te, vouwordid, voucherno, tax, debitamt, creditamt, dcdebitamt, ' +
        'dccreditamt, billno, explan, subjectcode, takeman, accflag, bank' +
        'flag, balancedate, initflag, sourceflag, bankcheckday, acccheckd' +
        'ay, dodebit, moneyid FROM tft_cashDayBook'
      'WHERE'
      '  daybookid = :Old_daybookid')
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select m.daybookid,m.explan,m.bookdate,m.balanceid,'
      'm.balancedate,m.billno,m.takeman,m.bankcheckday,m.acccheckday,'
      'm.creditamt,m.debitamt,m.create_by,m.Accountid,'
      'm.ACCFLAG,m.BANKFLAG,m.INITFLAG,m.voucherno,m.dodebit,'
      'm.vouwordID,m.SUBJECTCODE,m.SOURCEFLAG,m.tax,'
      'b.NAME+'#39'-'#39'+cast(m.voucherno as varchar(100)) AS vouwordtype,'
      'm.dcDebitamt, m.dcCreditamt,'
      '0.00 as Balance,0.00 AS dcBalance'
      '  from tft_cashDayBook m '
      '  left outer join tfd_vouword B on m.vouwordID=B.ID '
      '  where m.Accountid=:accountid AND m.InitFlag=:initflag'
      '  order by m.bookdate,m.daybookid')
    CachedUpdates = True
    Options.PrepareUpdateSQL = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Options.AutoPrepare = True
    Left = 165
    Top = 215
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'accountid'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'initflag'
        Value = nil
      end>
  end
end
